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16-Sep-1984 01:09:09 AX-11 Bliss-3 
19885-1982 97:98:98 BASRTL. RCIBA 
MODULE BASSRT_DIM ( ! Run time dimension 
= = "1-011" ! File: BASRTDIM.B32 Edit: MDL1011 
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' 
EPPS SSIS SSSI LITT TT TIT TTTTI IIIs TTT ttc citi ti iitiiiririririiririririiiiiT 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
‘® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
iw ALL RIGHTS RESERVED. 


® 
x 
® 
® 
, ® 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'* ONLY IN ACCORDANCE WITH Lb TERMS OF SUCH LICENSE AND WITH THE * 
:* INC T 0 T NOTIC SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
tt TRANSFERRED. * 
: ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!* CORPORATION. ® 

® 

® 

® 

® 

t 

® 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'‘@ 
POSES I LIL IIT ITI I STITT TTT TTT ITI TIT I ITI T iT TiitiriitirtiriririiriririitiritiTiT 
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BEGIN 


lee 
! FACILITY: Basic Language Support 


ABSTRACT: 


This routine is called by the generated code to dimension an 
array at run-time. 


ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Pamela L. Levesque, CREATION DATE: 14-May-1982 
MODIFIED BY: 
1-001 Original. PLL 14-May-1982 

B02 alts "Oe PL 


1- § L e0eney-1962 
1-00 n-1982 
1-004 Check return status from LIBSFREE_VM and LIBSGET_VM. PLL 7-Jun-1982 
1-005 Row 0 should included in ARSIZE. Also, the counter in the INCR 

loop for sett ng the bounds should start at 0, not 1. PLL 30-Jun-1982 
1-006 Initialize BNDSARG ytside gt the loop which sets the lower and 

upper pounds. PLL 27-Sep-1982 
1-007 Fix initialization of array elements to not write beyond the space 

pi togetes 0z 1, /856E! vn. End_addr was incorrectly computed.) 

ct=- 


1-008 - Add RECORD datat Re Since there is no atatype by this name on the 
AX, Basic uses DSCSK_DIYPE.2 (none). MDL 362 ay-1983 
! 1-009 = correct array initialization. use a loop of CHSFILL's: the MOVCS 


mr 


Repay 2 ar he 


w$2p-1986 11:50:98 EBASRTLSRESBASRYDIN- B39; 1 sree 


4 poreretes by one CH$x comes nowhere near writing all of a Lange array 
: i! Length operands for the instruction are words. MOL 0=Dec-1983 
' 1-010 - the $s a‘ee to return to FREE_VM should be calculated from the array size 
] n the array descriptor, in the same fashion ge for the call to 
' ce! ‘Wn when the array, is first 0} Lecepee. MDL 9-Feb-1984 

! 1-011 - cher to see if there's — virtual address space available before 
alling GET_VM. t+ Fh free 

! 


ynamic strings if returning an array of 
th em. MDL 22-Feb-19 . 


— tt ss ee 
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11 Declarations 14-Sep-1984 11:56:38 BASRTL.SRCJBASRTIDIM.632;1 


: 8 } XSBTTL "Declarations' 

Pip. 1 | SWITCHES: 

if ok 

3 R it } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 

ee 75 1! 

; 7 76 1 ! LINKAGES: 

> 77 1! 

ok Be perce 

; i 080 1 | TABLE OF CONTENTS: 

: BS 0082 4. 

> 84 $088 1 FORWARD ROUTINE 

. oe Boe 1 BASSRT_DIM : NOVALUE; ! run time dimension 

: ge bose 1 | 

: «88 008? 1 INCLUDE FILES: 

LBs te i 

; 4 ia : LIBRARY ‘RTLSTARLE'; _ | System symbols, typically from SYSSLIBRARY:STARLET.L32 
; $8 set ! REQUIRE “RTLIN:RTLPSECT'; ! Define PSECT declarations macros 
: 95 0188 1! 

eae te | non 

; 98 191 ; NONE 

> 100 $198 1 ' EQUATED SYMBOLS: 

s 101 0194 1! 

pip ae hy tee 

: 104 0197 1! FIELDS: 

: 105 0198 1! 

Poe Be pp 

; 108 9201 i PSECTS: 

; 11? 0208 : DECLARE _PSECTS (BAS); ' Declare PSECTs for BASS facility 
: 011 5 1 | OWN STORAGE: 

ae | 1! 

3 438 0 4 } : NONE 

; 116 0 $9 1 | EXTERNAL REFERENCES: 

att ek 

: 119 0 1 1 EXTERNAL ROUTINE 

: 120 1 1 BASSSSTOP : NOVALUC, ' Signal a fatal error 

; is 14 1 LIBSGET_EF ' get an event flag 

. % 4 15 1 LIBSFREE_Ef, ' free an event flag 

s ie 18 1 LIBSSTOP”: NOVALUE, ' signal if error from GET_EF or S$GETJPI 
: ise 1 1 LIBSFREE_VM, ' Deallocate virtual space 

: 125 0218 1 LIBSGET_0M, ' Allocate virtual space 
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$ep-1984 01:09: AX-11 Bliss-32 V4.0-7 Pa 4 
Declarations bdein 9} 98 93 YBASRTL” SRC JBASR bik.039:1 - (2) 
20 } STRSFREE1_Dx; ! Deallocate string space 
; 1 EXTERNA pt iTERAL ' Condition value symbols 
§ 1 BASSK_ARGDONMAT : UNSIGNED (8), ! Arguments don't match 
0 § 1 BASSK_NOTIMP : UNSIGNED (8) ' Not implemented 
0224 1 BASSK- SUBOUTRAN : UNSIGNED (8), i subscript out of range 
0225 1 BASSK_TOOFEWARG : UNSIGNED (8), ! Too few arguments 
0226 1 BASSK_ AR UNSIGNED (8), ! Too many arguments 
0227 1 BASSK _MAXMEME X SIGNED (8), ! Maximum memory exceeded 
osse : BASSK_PROLOSSOR : UNSIGNED (8); ! Program lost sorry 
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i IMPLICIT INPUTS: 


PIII II at a a dd ed dd od 
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BASSRT_DIM = run time dimension 14-Sep-19 BASRTL.SRCJBASRIDIM 
SBTTL "BASSRT_DIM = run time dimension’ 
GLOBAL ROUTINE BASSRT_DIM ( ! run time dimension 
ARRAY ’ oreey to re-dim 
BouND{ ! Ist upper bound 
) : NOVALUE = 


'e¢ 
: FUNCTIONAL DESCRIPTION: 


This routine changes the size of an errere It does this by 
deleting any virtual memory previously allocated for the array 
elements, ypdet ing the uaper bounds with the parameters passed, 
and then allocating enough virtual memory for the new size. 


Numeric array elements are initialized to zero, and — array 
elements (descriptors) have their Length and pointer set to zero. 


i CALLING SEQUENCE: 


BASSRT_DIM (ARRAY.mx.da, BOUND1.rl.v C,BOUND2.rl.v, ... BOUND32.rl.vJ) 


i FORMAL PARAMETERS: 


ARRAY desc. of orcey to re-dimension 

roe new value of Ist upper bound 

BOUND2 optional parameters - the number of bounds 
BOUND $2} passed must agree with the number of dimensions 


up to 32 dimensions are possible 


i IMPLICIT OUTPUTS: 


POINTER 


D 
DSCSL_ARSIZE 
bounds and multipliers 


The nottou fields in the array descriptor are updated: 
An 


: COMPLETION STATUS: 


Signals if any error is encountered 


i SIDE EFFECTS: 


BUILTIN 
ACTUALCOUNT 
ACTUALPARAME TER, 
ASHP; 


sss - 


5 
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133 


; 195 7 : 
3 138 P : 
; 12 ARRAY : REF BLOCK [,BYTE); : 
138 3 ag * SIZE : INITIAL (1) : dt t i 
; : ° : temp used to compute array size : 
; 201 38 BNBSARG : INITIAL (2)! ; ist’ bounds is ond arg ¥ : 
3 4 94 BOUNDS, : weer or lower bounds of array ; 
3 95 MULTIPLIERS, ! mult in array desc : 
3 38 LENGTH, : temp used to compute element size 3 
: 205 9 STATUS ! return status from calls : 
: 306 38 EVENT FLAG i for use with SGETJPI ; 
; 20 NUM_FREE PAGES: INITIAL (0) i written by SGETJPI ; 
; 208 00 JPI-RETURN_LENGTH: INITIAL(O), '@ bytes returned from $GETJPI 3 
; 209 01 JPILITEMS: VECTOR C4, LONG] INITIAL ( ((JPIS_FREPTECNT“16) OR 4), 3 
; 10 8 NUM_FREE_P : 
: gil 030 JPLCRETURN LENGTH, | 3 
Ho BAY. , eed 
: 215 0 09 i First perform some checks to make sure the proper number of bounds have ; 
3 18 5 56 : been passed, etc. : 
: 218 10 2 ; 
$ i 0311 ce () = 1) NEQ .ARRAY COSC$B_DIMCT) : 
3 31 0313 BEGIN F 
3 § baie IF CACTUALCOUNT () = 1) LSS .ARRAY CDSC$B_DIMCT) : 
> 226 0316 BASSSSTOP (BASSK_TOOFEWARG) ; 
; 5 ba ELSE : 
i 926 18 enp.CASSSSTOP (BASSK_TOOMANARG) ; : 
; 228 ; 0 : ; 
; $b 9 3 IF (NOT (.ARRAY COSCSV_FL_COEFF] AND .ARRAY COSCS$V_FL_BOUNDSJ)) 3 
; : 0338 BASSS$STOP (BASSK_ARGDONMAT) ; ! bounds and mult must be present : 
3 5 2t¢ ; 
; i 03 $ ; Free previously used space for elements, if any. : 
: 236 8 g IF -ARRAY CDSCSA_POINTER] NEQ 0 F 
3 7 THEN : 
3 . BEGIN : 
> 240 ¢ i if this was an array of descriptors, there is some cleanup necessary ; 
3 t ; prior to freeing the space for the array itself. : 
; “§ 5 i for dynamic string descriptors, each descriptor with space allocated ; 
3; 246 i must be freed. : 
: 245 : @ static string descriptor implies that the element is FIELDed, : 
: : ;_and the FIELD variable must be marked invalid. : 
; 4 6 iF ARRAY CDSC$B_DTYPE) EQL DSC$K_DTYPE_DSC : 
: 250 ¢ 4 BEGIN F 
: 251 4 LOCAL : 


egrets ke 91:09:98 AX-11 Bliss-32 V4. 0-088. Page 7 


BASSRT_DIM = run time dimension 14-Sep-1 BASRTL.SRCJBASRTIDIM.B 


—_ i 


, ARRAY foSCSw_LENGTHI; 
walk through the descriptors one at a time. 


INCR DSC ADDR FROM .ARRAY COSCSA_POINTER] TO .END_ADDR BY .ARRAY [DSC$W_LENGTH] DO 


DSC_ADDR : REF BLOCK (8,BYTE); 


END ADR's Ri ARAY COSCSA_POINTER] + .ARRAY CDSCSL_ARSIZE) - 
' 


'¢ 


; dynamic? call STRSFREE1_Ox. 
if. DS¢_ADDR COSCSB_CLASS] EQL DSCSK_CLASS_D 


BEGIN 
Ws = STRSFREE1_DX (.DSC_ADDR); 


14 
i static? mark length as 0 to prevent illicit usage as 
i. a FIELDed variable. 


IF ,DSC_ADDR COSC$SB_CLASS] EQL DSC$K_CLASS_S 


BEGIN 
pas ven COSCSW_LENGTH) = 0; 


END; ! Ince dsc_addr 
END; ! If .array Cdsc$b_dtype] eql dsc$k_dtype_dsc 


4¢ 
i. finally, free the old array itself up. 
LENGTH = ( (IF .ARRAY CDSCSB_DTYPE] EQL DSCSK_DTYPE_P 


° “ARRAY Y postst. ARSIZE / a COSC$w_ LENGTH]) * 
DSCSW_LENGTH)/ ! compute length in bytes 


ssa ARSIZE}); 
STATUS = “TIBSr REE VM T LENGTH, ARRAY COSCSA_POINTER)); 
a (.STATUS) ~ 
BASSSSTOP (BASSK_PROLOSSOR); 


END; ! If .array Cdsc$a_pointer] neq 0 


PSSSSSESES SUR esate 


POPE IFIP PIP BE Ad BB BB Nd BB VDD. PTI PISO EB 


oO 
w 


'¢ 
: Calculate the amount of space needed for the new size. 


SaTs 


INCR sentee FROM 1 TO .ARRAY CDOSCSB_DIMCT) DO - 
IF ACTUALPARAMETER (.COUNTER * 1) LSS 0 


s 


Se Se Oe Se Se Se Be Se Se Se Se Fe Se Se Se Ge Se Se Ge Se Ge Se Se Se Se Ge Se Se Ge Se Ge Ss Se Se Ge Se Se Ge Se Se Se Se Ge Se Se Se Se Oe Se Se Ge Se Ge Ss oe ee 
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-$ep-1984 01:09: AX-11 Bliss-32 V 
BASSRT_DIM = run time dimension 1§-e0-1984 9:93:93 BASRTLSREIBASRYD 
THEN 
BASSSSTOP (BASSK_SUBOUTR ' don't allow bounds < 0 
an size = .AR_SIZE * CAC TUAL PARAMETER (COUNTER ¢ 1) 1); 
$12 IZE_* .ARRAY COSC$W_LENGTH); 
ARRAY Eoscét x aSiee) = .AR_SIZE; 


>t i) it 


FRRLLLELLLLLLRLEKLRERRRRRRRR ERE RRR EEE 


RRR 
Www 


MEW O DONAUE WN $9 OBNOUES WN OOOO E UTD 


REEF 


RRLRRRLRKES 


te 


Update the bounds and multipliers in the array descriptor. 


BOUNDS = ARRAY poses, M1) + | iene * ,ARRAY CDSCSB_DIMCTJ); 
MULTIPLIERS = ARRAY CBSCSL_M1) 


a FROM 0 TO ((.ARRAY CDOSCS$B_DIMCT] * 2) = 1) BY 2 DO 


BOUNDS : REF VECTOR; 


BOUNDS (.COUNTER) = t lower bounds to 0 
BOUNDS C.COUNTER + 13 = ACTUALPARAMETER (. BNDSARG) « 


' take upper bound that was passed 
BNDSARG = .BNDSARG + 1; ! joe to next bounds arg, if any 
END; 


me Se FROM 0 TO (.ARRAY CDSC$B_DIMCT] - 1) DO 


Merieee Pe S_: REF VECTOR; 
oS JERS C.COUNTER] = ACTUALPARAMETER (.COUNTER + 2) + 1; 


' + ' 
i compute the total amount of space needed for the array, in bytes. 


ie 
LENGTH = 2 4 " COSCSB_DTYPE] EQL DSCSK_DTYPE_P 


(ARRAY CDSCSL_ARSIZE]/ .ARRAY CDSCS$W_LENGTH]) * 
(ARRAY CDSC$WLENGTHJ/ 2 + 1) ! compute Length in bytes 


+ARRAY CDSCSL_ARSIZEJ); 


te 

i see if there's enough room te expand this process’ virtual acprene s 393ce 
i that much. get the number of free te. available, multiply i 

i to get number of free bytes availab pee. and see if this is more Sete the 
: _fum er of bytes needed (computed above). 


STATUS = LIBSGET_EF (EVENT FLAG); 
IF (NOT .STATUS)~ THEN LIBSSTOP (.STATUS); 


STATUS = S$SGETJPIW ( EFN = vent FLAG, piste JPI_LITEMS ); 
IF (NOT .STATUS) THEN LIBSSTOP (7STATUS); 


STATUS = LIBSFREE_EF (EVENT_FLAG); 


bim.639;1 


Page 


ma Be Be Be Be Be Be Ge Be Be Ge Be Se Se Ge Ge Oe Be Se Se Se Se Se Se Se ee Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Ge Se Ge Se Se Se Se Ge Se OH Se Se Se Oe oe 


———_—_——_  — eee — — 


-Se0- - ° - 
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3 H IF (NOT .STATUS) THEN LIBSSTOP (.STATUS); 

; é If _( .NUM_FREE_PAGES * 512) LSSU .LENGTH 

; 6¢ BASSSSTOP (BASSK_MAXMEMEXC); 

; rr 

3 i Allocate space for the new size and store it's address in the pointer field 

3 i of the array descriptor. 

; STATUS = LI LIBSGET _VM (LENGTH, ARRAY CDSCSA_POINTERI); 

; SSSTOP (BASSK MAXMENE | 
3 ARRAY DSCSA_AO RRRAY COS Si _POINTER]; | 
3 \4 | 
5 : Initialize the space according to the data type of the array elements. 

: SELECTONE ARRAY CDSC$B_DTYPE] OF 

; 0 | 
3 81 CDSCS$K_DTYPE_B, DSCS$K_DTYPE_W, DSCSK_DTYPE_L, DSCSK_DTYPE_F | 
; bess DSCSK DIYPE. D, DSCSK_DTYPE_G, DSCSK_DTYPE_H, DSCSK“DTYPE~Z) | 
; 484 CAL | 
: 0485 CURR. SIZE: INITIAL(C. ARRAY COSCSL_ARSIZEJ) 
3 Bees CURR “ADDR: INITIAL(. ARRAY CDSCSA— _POIN ves: 
; 88 '¢ | 
; Bek i initialize the array in chunks of 2Xffff bytes at a time. We do this 

$ 0490 i becouse weed | © focal ten a MOVCS, and the bongee sonrent for moves 

; 0491 i is a WOR otal Longsh of the array can be much longer than can 

3 oh 4 _be Rtesses’ by a WO 

; Be 3s ? GIL. CURR ADDR LSS (.ARRAY COSCSA_POINTER] + .ARRAY CDSCSL_ARSIZEJ) DO 

: 604 496 CHSFILL (2C"" min, 7gcURe SIZE, BX*QOOOFFFF'), .CURR_ADDR); 
; 97 4 CURR_SIZE = .CURR = 2° OO0OFFFE' 
; 4606 98 «4 CURR “ADDR = CURR ~ROOR + &x° OOOFFFF': 
s $08 389 END; 

> 610 0808 (DSC$K_DTYPE_P) : 

ait 304 earn 

; £1 505 2 

: 416 206 ne ADDR; 

; $18 308 PACKED. ZERO = UPLIT BYTE (REP 15 OF (2x"00"), 2x‘'OC'); 

; 41 5 COUNT = RAY pst SCALE]; 

: 418 310 END_ ADDR . ARRAY COSCSA POINTER} + .LENGTH - 

3; «641 1 Y COSCSW_ LENGTA 4/2 +1); 

: 4620 21¢ INCR éte POTR FR RRAY LDS SoSA. PO Pointers TO .END_ADDR 

: $3) 313 3 BY (ARRAY DSeSULENGIAI/ 2 * 1) 


nS 
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: 623 1S$ & ASHP (COUNT, %REF(15), PACKED_ZERO, %REF(O), 
3 424 1 ARRAY COSCS$W_LENGTHJ, .ELE_PfR); 
: 425 1 ND; T ele by ele copy to 
3 2 $ : END; ! accomodate scaling 
; 4 8 COSCSK_DTYPE_DSCJ : 
: 6 3 BEGIN 
3 «4 § LOCAL 
: 631 5 END_ADDR; 
; 6 ¢ 524 END_ADDR = ,ARRAY CDSCSA_POINTER] + .ARRAY CDSCSL_ARSIZE) - 
: 4 525 ~ARRAY COSC$W_LENGTHT; 
; 4 4 ; 6 : INCR DSC ADDR FROM .ARRAY COSCS$A_POINTER] TO .END_ADDR BY .ARRAY CDSCS$W_LENGTH] DO 
: 6 4 MAP 
3; «4 2 $ 4 C_ADDR : REF BLOCK (8,B6YTE); 
rie 4 DSC_ADDR CDSC$B_CLASS] = DSCS$K_CLASS_D; 
: 639 531 4 DSC-ADDR EDSCSB~DTYPE) = DSCSK-DTYPE_T: 
3 . & = 0; 
440 3 : 4 DSC”ADDR CDSC$W LENGTH] 0 
; 44 233 4 DSC“ADDR DSCSA-POINTER) = 0; 
; 46 535 END; 
3 46446 0536 
+ 445 0537 COTHERWISE) : 
: 446 05 8 BAS$S$STOP (BASSK_NOTIMP); 
ao re 
: 450 054 
: 451 0543 1 END; ! End of routine BAS$RT_DIM 
.TITLE BASSRT_DIM 
“IDENT \1-011% 
-PSECT _BASSCODE.NOWRT, SHR, PIC,2 
04150004 00000 P.AAA: .LONG 68485124 : 
00000000 00004 [LONG 0 : 
00000000 00000000 00008 “LONG 0 Q ; 
00# 00010 P.AAB: .BYTE oft j : 
OC 0001F “BYTE 1 ; 
PACKED_ZERO= P.AAB 
.EXTRN BASSSSTOP, LIBSGET EF 
TEXTRN LIBSFREE_EF, LIBSST 
.EXTRN LIBSFREE-VM, LIBSGET_VM 
-EXTRN STRSFREET_DX, BASSK_ARGDONMAT 
-EXTRN BASSK_NOTIMP, BAS$K~SUBOUTRAN 
XTRN BAS$K_TOOF EWARG 
“EXTRN BASSK~TOOMANARG 
-EXTRN BASSK-MAXMEME X 
-EXTRN BASS$K~PROLOSSOR 


EXTRN BA 
-EXTRN SYSSGETUPIW 
OFFC 00000 -ENTRY BA $Ry DIM, Save R2,R3,R4,R5,R6,R7,.R8,R9,~ ; 0231 


5B 000000006 00 9€ 00002 MOVAB BAS$$STOP, R11 3 


| n 5 
BASSRT_DIM 16-Sep-1984 01:09: AX=-11 Bliss-32 V4.0-74 Pp 1 
bei BASSRT_DIM = run time dimension VenSep-198e Slisesse  Ebasnte Saedeagrtbin.o43;1 oe od) 
‘ 1c ¢ SUBL2 #28, $ : 
1 0 C MOVL #1, AR Size : 0281 
4 2D F MOVL #2. BNBSA : 
E D4 0001 CLRL = NUM_FREE_PA : 
04 ‘f 4 1 CLRL JP “RETURN_LENGTH $ 
10 AE cS soAF 10 28 0001 MOVCS) #167 P.AAA, JPI_ITEMS + 0304 
14 AE 6E 9E 0001D MOVAB NUM_FREE PAGES, ~JPI_ITEMS+4 3 0281 
18 OA 04 AE 9€ 1 MOVAB = JPI RETURN LENGTH, JP1_ITEMS+8 : 
5 6 A § MOVZBL (apy, R + 0311 
57 04 ac 00 $6 B MOVL ARRAY, R7 : 
50 0B A? 08 00 FD 00 F cMPzV 40. #8, 11(R7), RO : 
50 6 9A 000 ; MOVZBL AP), RO + 0314 
D7 O003A DECL RO ; 
50 0B A? 08 00 FD 905¢ CMP ZV #0, #8, 11(R7), RO : 
7E 006 f 9A 60044 MOVZBL #BASSK_TOOFEWARG, -(SP) 7 0316 
7E 006 BF 9A 0004A 1$: MOVZBL #BASS$K_TOOMANARG, -(SP) : 0318. 
68 1 FB 0004E ¢3: CALLS #1, BASSSSTOP : 
05 OA A7 06 Fi 0051 3$: BBC #6. 10(R7), 4$ > 0321 
OA A? 95 00056 TSTB  ~—s-_: 10 (R77) : 
07 19 90099 BLSS $ : 
7E 006 8F 9A 00058 4$: MOVZBL #BASSK_ARGDONMAT, -(SP) + 0323) 
01 FB OO0SF CALLS #1, BASSSSTOP 3 
8 04 A? i 00062 5$: MOVAB 4(R7), RB : 0328 
68 D 90066 TSTL (RB) : | 
75 13 0006 BEQL = «13 : | 
18 02 AZ 91 0006A CMPB =s-« 2 (RT), #24 : 0340. 
33 (12 00065 NEQ 198 : 
54 68 oc A? gi 0007 ADDL3 12(R7), (RB), R4 > 0345) 
53 67 g 0075 MOVZWL (R7), R : 0346) 
55 54 53 C3 00078 SUBLS R3, R4, END ADDR 3 | 
52 68 pO 007¢ MOVL (RB), OSC_ADDR : 0350. 
1D 11 O007F BRB 9$ : 
02 « 03 A2 91 90081 6$: CMPB 3(DSC_ADDR). #2 : 0358 
g¢ 12 00085 BNEQ $ ; 
2 DD 90087 PUSHL DSC_ADDR + 0361 
000000006 00 gi FB 0089 CALLS #1, ~STRSFREE1_Dx ; 
54 0 D 90099 MOVL RO, STATU : | 
01 03 A2 91 00093 7$ CMPB = 3(BSC_ADDR), #1 ; 0368 
4 af $099 a sc ADDR) : 0371 | 
52 ; CO 90098 8$: ADDL2 RS BSC_ADDR : 0350 
5 2 Di O009E 9S: CMPL  DSC_ADDR, END_ADDR ; 
DE 15 0O0A1 BLEG 8 ; 
15 02 A? 91 000A3 108 CMPB (R7), #21 : 0381 | 
15 12 O00A7 BNEQ 1$ F 
51 6 3¢ O0A9 MOVZWL (R7), R1 : 0383. 
51 0c A? 51 ¢ OOAt IVL3. R1, 12(R7), RI : 
50 67 3c 00081 MOVZWL (R?), RO > 0384 
50 02 C6 0084 DIVL2 #2, RO ; 
06 008 NCL. R ; | 
50 51 ¢4 00089 MULL2 1, RO : 
04 11 000BC BRB 126 > 0383 
50 OC A7 DO OOOBE 11$:  MOVL  12(R7), RO : 0386 


BS era ee RE Es ee ee ae oe 


BASSRT_DIM 16-Sep-1984 01:09:09 AX-11 Bliss-32 V4.0-74 
7-011 BASSRT_DIM = run time dimension 12-808- 1 obe oi 3:93 ANSRTLe SRE IBASR DIN. 3551 
OC AE 50 DO 000C2 12$:  MOVL Rd. LENGTH 
10 AE. OF Oo08 PUSHAB LENGTH 
000000006 90 ; FB 000C CALLS "3. LIBSFREE_VM 
4 DO 000D MOVL RO, STATU 
07 4 F 990 BLBS STATUS, 13$ 
7E 006 8F 9A 00008 MOVZBL #BAS$K’PROLOSSOR, -(SP) 
$f 01 FB OO0DC CALLS #1, GASSS3 TOP 
5 0B AZ 9A OOODF 138 MOVZBL 11(R7), R 
52 D4 000E3 CLRL COUNTER 
16 11 0005 BRB 16$ 
04 Ache D3 OO0E7 14$ TSTL 4 (AP)CCOUNTER) 
07 18 OO0EB BGEG =s-«s35$ 
7E 006 8F 9A OODED MOVZBL #BAS$K_SUBOUTRAN, -(SP) 
6B 01 FB OO0F1 CALLS #1, BASS$S$STO 
50 04 AC42 01 C1 000F4 15$:  ADDL3 #1, 4(AP)CCOUNTER], RO 
59 50 C4 OOOFA MULL2 RO, AR SIZE 
E6 52 53 £3 OOOFD 16$:  AOBLEQ R3. COONTER, 14$ 
50 67 3C 00101 MOVZWL (R7), RO 
59 50 4 00104 ULL2 RO, AR_SIZE 
SA 0c A? 9E 00107 MOVAB 12(R7), R10 
6A 59 DO 0010B OVL AR_SIZE, (R10) 
3¢ 0B A7 9A OO10E MOVZBL 11TR7) Re 
& 14 A7he DE 0011¢ MOVAL 20(R?)ERe , BOUNDS 
50 14 =A 3 0011 MOV O(R7), MULTIPLIERS 
55 52 01 78 00118 ASHL #1, R2. R5 
55 D7 OO11F DECL = RS 
51 02 CE 00121 MNEGL #2, COUNTER 
OB 11 00124 BRB 18$ 
6341 D4 00126 17$:  CLRL (BOUNDS) CCOUNTER] 
04 A341 6046 DO 00129 MOVL (AP) CBNDSARGJ, 4(BOUNDS) CCOUNTER] 
56 D6 O012F INCL — BNDSARG 
FFEF 51 02 55 F1 00131 18$: ACBL RS, #2, COUNTER, 17S 
51 01 CE 00137 MNEGL #1. COUNTER 
07 11 0013A BRB 20$ 
6041 08 AC41 01 C1 0013C 19$:  ADDL3 #1, 8C(AP)CCOUNTER], (MULTIPLIERS) CCOUNTER) 
F5 51 32 F2 00143 20$:  AOBLSS R2, COUNTER. 19$ 
15 02 A? 91 00147 CMPB Ss 2(R7), # 
14 12 00148 BNEQ 21$ 
51 67 3C 00140 MOVZWL (R7), R1 
51 6A 51 C7 00150 IVL3_ R1, (R10), RI 
50 67 3¢ 00154 MOVZWL (R?), RO 
50 02 C6 00157 IVL2 2, RO 
20 06 Q015A INCL. R 
50 1 C4 0015¢ MULL2 1, RO 
03 11 00158 RB 22$ 
50 6A DO 00161 gis: MOVL (R10), RO 
Oc AE 50 00 00164 2$:  MOVL RO, LENGTH 
08 AE 9F 00168 PUSHAB EVENT FLAG 
000000006 00 01 FB 0016 CALLS #1, LIBSGET_EF 
54 50 D boty MOVL RO, STAT ; 
09 34 E8 0017 BLBS STATUS, 23% 
4 DD 00178 PUSHL STATUS 
000000006 00 1 FB 017A CALLS #1, LIBSSTOP 
E 7C 00181 23$: CLRO 30_« = ( §P) 
7E D4 00185 CLRL = = (SP) 
1¢ «AE 9F 00185 PUSHAB JPI_ITEMS 


e fT ] 


é 
bese -1984 01:09:09 AX-11 Bliss-32 V4.0-74 
BASSRT_DIM = run time dimension 12-8 08-1 3b 9:98:93 BASRTLe SREIBASRIDIN. 3951 
20 KE SE SSR SREY ag 
000000006 90 5 F 188 CALLS iT, SYS$GETUPIW 
4 0 D 0194 OVL RO STATUS 
09 4 EB 00197 BLBS STATUS, 24$ 
54 DD 0019A PUSHL STATUS 
000000006 00 01 FB i9¢ CALLS #1, LIBSSTOP 
08 AE 9F OO1A3 24$:  PUSHAB EVENT FLAG 
000000006 00 Qf FB O01A6 CALLS #1, LIBSFREE_EF 
54 0 DO OO1AD OVL RO, STATUS 
i 22 33 O13 atl StAtUs, site 
000000006 00 01 Fe gi CALLS #1, LIBSSTOP 
0 6£ 09 78 OO1BC 25$: ASHL #9, NUM_FREE_PAGES, RO 
Oc AE 0 D1 001CO CMPL RO. LENGTH 
07 16 0014 BGEQU 
7E 006 8F 9A 00166 MOVZBL #BASSK_MAXMEMEXC, -(SP) 
68 01 FB OOICA CALLS #1, BASS$S$STOP 
58 DD 001CD 26$:  PUSHL 
10 AE 9F OO1CF PUSHAB LENGTH 
000000006 00 02 FB 00102 CALLS #2, LIBSGET_VM 
54 50 DO 00109 MOVL RO, STATUS 
07 54 £8 0010C BLBS §_ STATUS, 27$ 
7E 006 BF 9A OO1DF MOVZBL M#BAS$K MAXMEMEXC, -(SP) 
6B 01 FB 0O1E3 CALLS #1, BASSSSTOP 
10 A? 68 DO 001E6 27S: OVL (RB), 16(R7) 
50 02 A? 9A OO1EA MOVZBL gcR75, RO 
1E 13 OO1EE EQL 0$ 
06 50 91 001FO CMPB ss eRO, #6 
05 1F OO1F3 BLSSU 288 
08 50 91 001F5 CMPBSs«aRO, #8 
14 1B 001F8 BLEQU 30$ 
OA 50 91 OO1FA 288 CMPB- ss RO, #10 
0S 1F OO1FD BLSSU 298 
0B 50 91 OO1FF CMPB ss «RO, #11 
0A 18 00202 BLEQU 308 
1B 50 91 90204 29$ CMPBs«RO, ~#27 
3¢ 61 00207 BLSSU 348 
1C 30 91 90209 CMPBSs«aRO, #28 
7 1A 0020¢ BGTRU 34§ 
56 6A DO O020E 30$:  MOVL (R10), CURR SIZE 
59 68 DO 00211 MOVL.  (R8), CURR ADDR 
54 BE 6A C1 00214 318 ADDL3 (R105, (RBY, R4 
54 59 D1 00 18 CMPL CURR_AD R, R4 
01 19 0021B BLSS $ 
04 0021D RET 
50 56 DO OO21E 32$: MOVL CURR Size RO 
OOOOFFFF  &F 50 (D1 00 1 CMPL = RO, #65535 
05 15 00228 BLEG 
50 FFFF BF 3¢ 022A MOVZWL #65535, RO 
00 6E 09 C 9 F 33$:  MOVCS #0, (SP), #0, RO, (CURR_ADDR) 
56 FFFFOOO1 EG 9E 00235 MOVAB “$55 5(R6), CURR SIZE 
9 QOOOOFFFF € H 0 MOVAB 535(R9), CURR_ADDR 
F 11 0024 BRB i$ 
15 0 91 00245 34$:  CMPB R0 #21 
2 12 00248 BNEQ 37$ 
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BASSRT_DIM ib sé 1984 01:09 AX-11 Bliss-32 V4.0-74 
= - e = 3 $ - s > -VU= 
weit BASSRT_DIM = run time dimension 1228 08-13be 94:98:93 BASRTL  SREIBASRYDIN. B39; 1 
593 08 A? 98 0024 CVTBL 8(R7), COUNT 
9 59 cE 4F MNEGL COUNT, COUNT 
54 68 0c AE g ADDL3 LENGTH, (RB), R4 
20 ¢ 00 : MOVZWL (R7), RO 
0 : C 0 DIVL 2, RO 
54 ¢ ¢ SUBL2 RO, R4& 
4 b 025F DECL END ADDR 
56 01 Ad : 61 MOVAB (RO), R6 
ge) gp gt ap. "euk ro 
00 FD80 = CF OF : F8 00 $A 35$: ASHP COUNT. #15, PACKED_ZERO, #0, (R7), - 
ee eee ee 
EF 15 00 48 BLEG bs ee 
04 00278 RET 
18 59 91 0027C 37$: CMPB RO #24 
23 12 OO27F BNEQ 40$ 
54 6A cI 0281 ADDL3 (R10), (RB), R4 
51 67 ¢ 00385 MOVZ2WL (R7), R1 
52 54 51 C3 00288 SUBL3. R1, R4, END_ADDR 
50 68 90 b08¢ MOVL  (R8), BSC_ABDR 
OD 11 0028F BRB 39$ 
60 02060000 8F D0 00291 38%:  MOVL #34471936, (DSC_ADDR) 
04 AO D4 00298 CLRL. 4 (DSC_ADDR) 
50 51 CO 00 98 ADDL2 R1, DSC_ADDR 
52 50 D1 0029 39$: CMPL  DSC_ADDR, END_ADDR 
EE 15 002A1 BLEQ 38$ 
04 002A3 RET 
7E 006 8F 9A 002A4 40$:  § MOVZBL M#BASSK_NOTIMP, -(SP) 
68 01 FB 002A8 CALLS #1, BASSS$STOP 
04 002AB RET 
; Routine Size: 684 bytes, Routine Base: _BASSCODE + 0020 


; 452 0544 1 !<BLF/PAGE> 


ASSRT_DIM 1b-5e -1984 01: AX-11 Bliss-32 V4.0-74 Pa 15 
th BASSRT_DIM = run time dimension ~3007 138% 9 +03: % BASRTL.SRC BASRYD 4.8 97883: ~ (4) | 
: ¢ p ig : END ! End of module BASSRT_DIM | 
; 456 547 0 ELUDOM 
PSECT SUMMARY | 
Z Name Bytes Attributes | 
:  _BASSCODE 716 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 


Library Statistics 


: Se ee Symbols See eo eee Pages Processing 
: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 28 0 581 00:01.1 
3 COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:BASRTDIM/OBJ=0BJ$:BASRTDIM MSRC$:BASRTDIM/UPDATE=(ENH$:BASRTDIM) 
3: Size: 684 code + 32 data bytes 

3; Run Time: 00: a°8 

; Elapsed Time: 00:30.9 

3; Lines/CPU Min 283 

8 Lexenes/CPU-Min: 17657 

3 ry Used: 211 pages 

3 ae ation Complete 


003 AH-BT13A-SE 
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